home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 4 / United Public Domain Gold 4.iso / fredfish / ff.0013.dms / ff.0013.adf / minipaint.bas < prev    next >
BASIC Source File  |  1986-02-21  |  2KB  |  69 lines
  1. 10    'MiniPaint program by Henry Birdseye
  2. 20    'As of 10/12/85 at 11:44
  3. 30    'click color menu once to activate menu,
  4. 40    ' then again over color to select
  5. 50    ' or over "quit." to quit.
  6. 60    ' once points are selected, mouse to
  7. 70    ' far upper left corner to finish figure.
  8. 80    ' feel free to change this program.
  9. 90    ' call The Unknown TBBS for Amiga uploads
  10. 100   ' at (303) 988-8155.
  11. 1000  dim fig%(1000)
  12. 1010  gosub 1470
  13. 1020  scnclr
  14. 1030  gosub 1340
  15. 1040  gosub 5000
  16. 1060  gosub 1290
  17. 1070  pena col%
  18. 1080  i%=0
  19. 1090  gosub 1210
  20. 1100  if (x%<5) and (y%<5) then goto 1160
  21. 1110  fig%(i%)=x%:fig%(i%+1)=y%
  22. 1120  gosub 1320
  23. 1130  i%=i%+2
  24. 1140  goto 1090
  25. 1150  '
  26. 1160  '
  27. 1170  fig%(i%)=fig%(0):fig%(i%+1)=fig%(1)
  28. 1180  i%=(i%/2)+1
  29. 1190  mat area i%,fig%()
  30. 1200  goto 1030
  31. 1210  ask mouse x%,y%,b%
  32. 1220  if b%=0 then goto 1210
  33. 1230  sleep 500000
  34. 1240  return
  35. 1250  window #1,0,0,150,300
  36. 1260  cmd 1
  37. 1270  print"click mouse in here,":print"then choose a color."
  38. 1280  return
  39. 1290  close #1
  40. 1300  cmd 0
  41. 1310  return
  42. 1320  if i%=0 then draw(fig%(i%),fig%(i%+1)) else draw(to fig%(i%),fig%(i%+1))
  43. 1330  return
  44. 1340  window #1,0,0,175,300
  45. 1350  cmd 1
  46. 1360  print"click mouse, then"
  47. 1370  print"choose colors."
  48. 1380  for j%= 0 to 15
  49. 1390  pena j%
  50. 1400  for k%= 0 to 3
  51. 1410  sq%(k%*2+1)= int(k%/2)*9 + j%*10 + 16
  52. 1420  next k%
  53. 1430  mat area 4,sq%()
  54. 1440  next j%
  55. 1450  print at (1,23); "quit.";
  56. 1460  return
  57. 1470  'initialize boxes
  58. 1480  for i%=0 to 7
  59. 1490  read sq%(i%)
  60. 1500  next i%
  61. 1510  return
  62. 1520  data 0,20,100,20,100,25,0,25
  63. 5000  gosub 1210
  64. 5010  if y%>176 then gosub 1290:stop
  65. 5020  if y%<16  then goto 5000
  66. 5030  col% = ((y%-10)/10) - 1
  67. 5035  if col% < 0 then col% = 0
  68. 5040  return
  69.